home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 18 / fpc103.zip / NEWFILE.SEQ < prev    next >
Text File  |  1988-06-30  |  867b  |  21 lines
  1. \ NEWFILE.SEQ   Create a new file, and edit it.
  2.  
  3. : newfile       ( t1 --- )
  4.                 bl word c@ 0=
  5.                 if      cr ." Filename to create? " query
  6.                         bl word c@ 0= abort" No file specified"
  7.                 then    here
  8.                 shndl @ dup >r hclose drop
  9.                 r@ $>handle
  10.                 r@ hopen
  11.                 if      r@ hcreate abort" Create file FAILED"
  12.                         2573                    \ decimal for CRLF
  13.                         sp@ 2 r@ hwrite 2drop   \ write an empty line
  14.                         r@ hclose drop          \ update the directory
  15.                         r@ hopen drop           \ for the new file
  16.                 else    >attrib1 ."  File already exists! "
  17.                         >norm 1 seconds
  18.                 then    r>drop
  19.                 0 edit ;
  20.  
  21.